Software Vault: The Diamond Collection/The Diamond Collection (Software Vault)(Digital Impact).ISO/cdr37/match_10.zip/MPREFS.WCX

Wildcat! WCX | 1995-03-11 | 3KB | 303 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  3184 bytes  01/29/123  04:30:30pm
'! Code Segment Size  :2439 bytes
'! Data Segment Size  :4595 bytes
'! String Segment Size:745 bytes
'! Compiled with WCC version 4.01

      Dim s4463 As String
      Dim s4467 As String
      Dim s4471 As String
      Dim s4479 As String
      Dim s4483 As String
      Dim s4487 As String
      Dim s4491 As String
      Dim s4495 As String
      Dim s4499 As String
      Dim s4503 As String
      Dim s4507 As String
      Dim s4511 As String
      Dim s4515 As String
      Dim s4519 As String
      Dim s4523 As String
      Dim s4527 As String
      Dim s4531 As String
      Dim s4535 As String
      Dim s4539 As String
      Dim s4543 As String
      Dim s4547 As String
      Dim s4551 As String
      Dim s4555 As String
      Dim s4559 As String
      Dim s4563 As String
      Dim s4567 As String
      Dim s4571 As String
      Dim s4575 As String
      Dim s4579 As String
      Dim s4583 As String
      Dim s4587 As String
      Dim s4591 As String

      s4507 = "prefage.bbs"
      s4511 = "prefhite.bbs"
      s4515 = "prefweit.bbs"
      s4519 = "prefhair.bbs"
      s4523 = "prefeyes.bbs"
      s4527 = "prefusex.bbs"
      s4531 = "minperc.bbs"
      Open "Matcher!.cfg" For Input As 1
      Input #1, s4535
      Input #1, s4539
      Input #1, s4543
      Input #1, s4547
      Input #1, s4551
      Input #1, s4555
      Input #1, s4559
      Input #1, s4563
      Input #1, s4567
      Input #1, s4571
      Input #1, s4575
      Input #1, s4579
      Input #1, s4583
      Input #1, s4587
      Close 1
      s4463 = "prefdisp.bbs"
      DisplayHelp s4463
      WaitEnter
      Do
  245   DisplayHelp s4507
        s4479 = InputMask("", "99", "", 1213417543)
        If s4479 = "1" Then
          s4479 = "Under 13"
          GoTo 654
        End If
  311   If s4479 = "2" Then
          s4479 = "13-15"
          GoTo 654
        End If
  343   If s4479 = "3" Then
          s4479 = "16-18"
          GoTo 654
        End If
  375   If s4479 = "4" Then
          s4479 = "19-21"
          GoTo 654
        End If
  407   If s4479 = "5" Then
          s4479 = "22-25"
          GoTo 654
        End If
  439   If s4479 = "6" Then
          s4479 = "26-29"
          GoTo 654
        End If
  471   If s4479 = "7" Then
          s4479 = "30-35"
          GoTo 654
        End If
  503   If s4479 = "8" Then
          s4479 = "36-40"
          GoTo 654
        End If
  535   If s4479 = "9" Then
          s4479 = "41-50"
          GoTo 654
        End If
  567   If s4479 = "10" Then
          s4479 = "51-60"
          GoTo 654
        End If
  599   If s4479 = "11" Then
          s4479 = "Above 60"
          GoTo 654
        End If
  631   If (s4479 = "") = 0 Then GoTo 654
      Loop
      Do
  654   DisplayHelp s4511
        s4483 = InputMask("", "X", "", 1213417543)
        If s4483 = "1" Then
          s4483 = "Under 5'0"
          GoTo 871
        End If
  720   If s4483 = "2" Then
          s4483 = "5'1 - 5'5"
          GoTo 871
        End If
  752   If s4483 = "3" Then
          s4483 = "5'6 - 5'9"
          GoTo 871
        End If
  784   If s4483 = "4" Then
          s4483 = "5'10 - 6'0"
          GoTo 871
        End If
  816   If s4483 = "5" Then
          s4483 = "Above 6'0"
          GoTo 871
        End If
  848   If (s4483 = "") = 0 Then GoTo 871
      Loop
      Do
  871   DisplayHelp s4515
        s4487 = InputMask("", "99", "", 1213417543)
        If s4487 = "1" Then
          s4487 = "Under 100"
          GoTo 1280
        End If
  937   If s4487 = "2" Then
          s4487 = "101 - 110"
          GoTo 1280
        End If
  969   If s4487 = "3" Then
          s4487 = "111 - 120"
          GoTo 1280
        End If
 1001   If s4487 = "4" Then
          s4487 = "121 - 130"
          GoTo 1280
        End If
 1033   If s4487 = "5" Then
          s4487 = "131 - 140"
          GoTo 1280
        End If
 1065   If s4487 = "6" Then
          s4487 = "141 - 150"
          GoTo 1280
        End If
 1097   If s4487 = "7" Then
          s4487 = "151 - 170"
          GoTo 1280
        End If
 1129   If s4487 = "8" Then
          s4487 = "171 - 190"
          GoTo 1280
        End If
 1161   If s4487 = "9" Then
          s4487 = "191 - 210"
          GoTo 1280
        End If
 1193   If s4487 = "10" Then
          s4487 = "211 - 240"
          GoTo 1280
        End If
 1225   If s4487 = "11" Then
          s4487 = "Above 240"
          GoTo 1280
        End If
 1257   If (s4487 = "") = 0 Then GoTo 1280
      Loop
      Do
 1280   DisplayHelp s4519
        s4491 = InputMask("", "X", "", 1213417543)
        If s4491 = "1" Then
          s4491 = "Blonde"
          GoTo 1497
        End If
 1346   If s4491 = "2" Then
          s4491 = "Red"
          GoTo 1497
        End If
 1378   If s4491 = "3" Then
          s4491 = "Brown"
          GoTo 1497
        End If
 1410   If s4491 = "4" Then
          s4491 = "Black"
          GoTo 1497
        End If
 1442   If s4491 = "5" Then
          s4491 = "Other"
          GoTo 1497
        End If
 1474   If (s4491 = "") = 0 Then GoTo 1497
      Loop
      Do
 1497   DisplayHelp s4523
        s4495 = InputMask("", "X", "", 1213417543)
        If s4495 = "1" Then
          s4495 = "Blue"
          GoTo 1746
        End If
 1563   If s4495 = "2" Then
          s4495 = "Green"
          GoTo 1746
        End If
 1595   If s4495 = "3" Then
          s4495 = "Grey"
          GoTo 1746
        End If
 1627   If s4495 = "4" Then
          s4495 = "Brown"
          GoTo 1746
        End If
 1659   If s4495 = "5" Then
          s4495 = "Black"
          GoTo 1746
        End If
 1691   If s4495 = "6" Then
          s4495 = "Other"
          GoTo 1746
        End If
 1723   If (s4495 = "") = 0 Then GoTo 1746
      Loop
      Do
 1746   DisplayHelp s4527
        s4499 = InputMask("", "X", "", 1213417543)
        If s4499 = "1" Then
          s4499 = "M"
          GoTo 1867
        End If
 1812   If s4499 = "2" Then
          s4499 = "F"
          GoTo 1867
        End If
 1844   If (s4499 = "") = 0 Then GoTo 1867
      Loop
      Do
 1867   DisplayHelp s4531
        s4503 = InputMask("", "9", "", 1213417543)
        If s4503 = "1" Then
          s4591 = "20"
          GoTo 2067
        End If
 1933   If s4503 = "2" Then
          s4591 = "40"
          GoTo 2067
        End If
 1965   If s4503 = "3" Then
          s4591 = "60"
          GoTo 2067
        End If
 1997   If s4503 = "4" Then
          s4591 = "80"
          GoTo 2067
        End If
 2029   If s4503 = "5" Then
          s4591 = "100"
          GoTo 2067
        End If
 2061 Loop
 2067 s4471 = s4587
      Open s4471 For Output As 1
      Print #1, s4563; User.UserId; "P"
      Close 1
      Open s4471 For Input As 2
      Input #2, s4467
      Close 2
      Open s4467 For Output As 3
      Print #3, User.UserId
      Print #3, User.Name
      Print #3, s4479
      Print #3, s4483
      Print #3, s4487
      Print #3, s4491
      Print #3, s4495
      Print #3, s4499
      Print #3, s4591
      Close 3
      Print "@04@Okay, your preferences have been saved to file."
      WaitEnter
      GoTo 2291
 2291 Chain s4575, ""